home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / GUICtrlCreatePic.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.7 KB  |  75 lines
  1. ;----- example 1 ----
  2. #include <GUIConstants.au3>
  3. GUICreate("My GUI picture",350,300,-1,-1,$WS_SIZEBOX+$WS_SYSMENU)  ; will create a dialog box that when displayed is centered
  4.  
  5. GUISetBkColor (0xE0FFFF)
  6. $n=GUICtrlCreatePic(@Systemdir & "\oobe\images\mslogo.jpg",50,50, 200,50)
  7.  
  8. GUISetState ()
  9.  
  10. ; Run the GUI until the dialog is closed
  11. While 1
  12.     $msg = GUIGetMsg()
  13.     
  14.     If $msg = $GUI_EVENT_CLOSE Then ExitLoop
  15. Wend
  16.  
  17.  
  18. GUISetState ()
  19. ; resize the control
  20. $n=GUICtrlSetPos($n,50,50,200,100)
  21. ; Run the GUI until the dialog is closed
  22. While 1
  23.     $msg = GUIGetMsg()
  24.     
  25.     If $msg = $GUI_EVENT_CLOSE Then ExitLoop
  26. Wend
  27.  
  28. ;----- example 2
  29. #include "GUIConstants.au3"
  30.  
  31. $gui=GUICreate("test transparentpic", 200, 100)
  32. $pic=GUICreate("", 68, 71, 10, 10,$WS_POPUP,BitOr($WS_EX_LAYERED,$WS_EX_MDICHILD),$gui)
  33. GUICtrlCreatePic(@Systemdir & "\oobe\images\merlin.gif",0,0, 0,0)
  34.  
  35. GUISetState(@SW_SHOW,$pic)
  36. GUISetState(@SW_SHOW,$gui)
  37.  
  38. HotKeySet("{ESC}", "main")
  39. HotKeySet("{LEFT}", "left")
  40. HotKeySet("{RIGHT}", "right")
  41. HotKeySet("{DOWN}", "down")
  42. HotKeySet("{UP}", "up")
  43. $picPos = WinGetPos($pic)
  44. $guiPos = WinGetPos($gui)
  45.  
  46. do
  47.     $msg = GUIGetMsg()
  48. until $msg = $GUI_EVENT_CLOSE
  49. Exit
  50.  
  51. Func main()
  52.     $guiPos = WinGetPos($gui)
  53.     WinMove($gui,"",$guiPos[0]+10,$guiPos[1]+10)
  54. EndFunc
  55.  
  56. Func left ()
  57.     $picPos = WinGetPos($pic)
  58.     WinMove($pic,"",$picPos[0]-10,$picPos[1])
  59. EndFunc
  60.  
  61. Func right()
  62.     $picPos = WinGetPos($pic)
  63.     WinMove($pic,"",$picPos[0]+10,$picPos[1])
  64. EndFunc
  65.  
  66. Func down()
  67.     $picPos = WinGetPos($pic)
  68.     WinMove($pic,"",$picPos[0],$picPos[1]+10)
  69. EndFunc
  70.  
  71. Func up()
  72.     $picPos = WinGetPos($pic)
  73.     WinMove($pic,"",$picPos[0],$picPos[1]-10)
  74. EndFunc
  75.